home *** CD-ROM | disk | FTP | other *** search
/ Almathera Ten Pack 3: CDPD 3 / Almathera Ten on Ten - Disc 3: CDPD3.iso / scope / 051-075 / scopedisk75 / ispell / src / hash.c < prev    next >
Text File  |  1995-03-19  |  343b  |  32 lines
  1. /* -*- Mode:Text -*- */
  2. /*
  3.  * hash.c - a simple hash function for ispell
  4.  *
  5.  * Pace Willisson, 1983
  6.  */
  7.  
  8. hash (s, n, hashsize)
  9. register char *s;
  10. register n;
  11. register hashsize;
  12. {
  13.     register short h = 0;
  14.  
  15.     while (n--) {
  16.         h ^= *s++;
  17.         if (h < 0) {
  18.             h <<= 1;
  19.             h++;
  20.         } else {
  21.             h <<= 1;
  22.         }
  23.     }
  24.  
  25.     h &= 077777;
  26.     return (h %= hashsize);
  27. }
  28.  
  29.  
  30.  
  31.         
  32.